home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / SavePalette.AmiCAD < prev    next >
Text File  |  2000-11-12  |  1KB  |  49 lines
  1. /* Sauvegarde de la palette courante dans un fichier
  2.    Le fichier sauvé peut être relu par le menu Préférences/Configuration/Charger
  3.    Version 1.00: 23 avril 1998
  4.    Version 1.01: 21 février 1999 (modif appel REQFILE)
  5.    Version 1.02: 11 novembre 2000 (localisation anglais/français)
  6.    $VER: 1.02, © R.Florac (Chez Corbin, 11/11/2000)
  7.  
  8.    Save the current palette in a file. The resulting file can
  9.    be loaded using the menu Preferences/Configuration/Load */
  10.  
  11. options results     /* indispensable pour récupérer le résultat des macros */
  12.  
  13. signal on error     /* pour l'interception des erreurs */
  14. signal on syntax
  15.  
  16. 'LANGUAGE'
  17. if result="français.language" then fr=1
  18. else fr=0
  19.  
  20. if fr=1 then 'REQFILE("Fichier destination ?", "", "")'
  21. else 'REQFILE("Destination file ?", "", "")'
  22. fichier=result
  23. if fichier ~="" then do
  24.     if open(file, fichier, 'W') then do
  25.     call writeln(file, "AmiCADPrefs 1.1")
  26.     call writeln(file, "[Palette]")
  27.     do color=0 to 15
  28.         c="Color"||color||"="
  29.         'GETCOLOR('color')'; c=c||result
  30.         call writeln(file,c)
  31.     end
  32.     close(file)
  33.     end
  34. end
  35.  
  36. exit
  37.  
  38. /* Traitement des erreurs, interruption du programme */
  39. syntax:
  40. erreur=RC
  41. if fr=1 then 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  42. else 'MESSAGE("Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  43. exit
  44.  
  45. error:
  46. if fr=1 then 'MESSAGE("Erreur en ligne 'SIGL'")'
  47. else 'MESSAGE("Error in line 'SIGL'")'
  48. exit
  49.